###########################################################
# Time-stamp: <04/07/02 17:44:58 ostolop>
###########################################################
package EP::Common::RequestAgent;
@ISA = qw(LWP::UserAgent);

use strict;
use LWP::UserAgent;

######################################################################s
# HTTPS-enabled request agent
######################################################################


sub new {
  my $self = LWP::UserAgent::new(@_);
  $self->agent("ExpressionProfiler/1.0");

  return $self;
}

sub set_credentials {
  my $self = shift;
  my ($user, $password) = @_;

  $self->{user}     = $user;
  $self->{password} = $password;
}

sub get_basic_credentials {
  my($self, $realm, $uri) = @_;
  return ($self->{user}, $self->{password});
}
